home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Macademic for Students & Teachers
/
Macademic for Students and Teachers (Quantum Leap)(1992).iso
/
General Interest
/
Whole Earth Catalog⁄stack
/
background_2761.txt
< prev
next >
Wrap
Text File
|
1987-09-20
|
2KB
|
110 lines
-- background: 2761 from stack: in
-- bmap block id: 3637
-- flags: 4000
-- background id: 0
-- name: Conference
-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=12 top=30 right=112 bottom=362
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: theConference
-- part 2 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=12 top=119 right=336 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: theTopics
----- HyperTalk script -----
on mouseUp
put the clickloc into here
put item 2 of here into here
get the scroll of the target
add it to here
get the rect of the target
put item 2 of it into there
get the textHeight of the target
put 1 + (here - there) div it into which
put line which of bkgnd field "theTopics" into toHere
if toHere is empty then exit mouseUp
put offset(":", toHere) into toHere
put "Topic" & char 1 to (toHere - 1) of line which of bkgnd field "theTopics" into toHere
visual effect iris open
go to card toHere of bkgnd "Topic"
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=379 top=30 right=63 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Import File
----- HyperTalk script -----
on mouseUp
import
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=377 top=73 right=108 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect zoom open
go to card "About WELL"
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=445 top=78 right=103 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
visual effect iris close
go Home
end mouseUp